home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Encarta World Atlas 1999 / Encarta World 99 Install Disk.iso / evg / Flights / ctrlPan.dcr / 00005_Buttons_Speed.ls < prev    next >
Encoding:
Text File  |  1998-09-01  |  789 b   |  46 lines
  1. property upmember, ovrmember, dnmember
  2.  
  3. on beginSprite me
  4.   set buttonName to the name of the member of sprite the currentSpriteNum
  5.   delete word 2 of buttonName
  6.   set upmember to member (buttonName & "up")
  7.   set ovrmember to member (buttonName & "ovr")
  8.   set dnmember to member (buttonName & "dwn")
  9. end
  10.  
  11. on mouseUp me
  12.   buttonOvr(me)
  13. end
  14.  
  15. on mouseDown me
  16.   buttonDwn(me)
  17. end
  18.  
  19. on mouseEnter me
  20.   if the stillDown then
  21.     buttonDwn(me)
  22.   else
  23.     buttonOvr(me)
  24.   end if
  25. end
  26.  
  27. on mouseWithin me
  28.   nothing()
  29. end
  30.  
  31. on mouseLeave me
  32.   buttonUP(me)
  33. end
  34.  
  35. on buttonUP me
  36.   set the member of sprite the currentSpriteNum to upmember
  37. end
  38.  
  39. on buttonDwn me
  40.   set the member of sprite the currentSpriteNum to dnmember
  41. end
  42.  
  43. on buttonOvr me
  44.   set the member of sprite the currentSpriteNum to ovrmember
  45. end
  46.